home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Camelot / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].zip / Camelot 098 (1990-12)(Swedish User Group of Amiga)(SE)(PD)[WB].adf / XLisp-Stat / Functions / integral.lsp < prev    next >
Lisp/Scheme  |  1990-10-11  |  151b  |  6 lines
  1. ;book p.94
  2.  
  3. (defun integral (f a b h)
  4.   (do ((integral 0 (+ integral (* h (funcall f x))))
  5.        (x (+ a (/ h 2)) (+ x h)))
  6.       ((> x b) integral)))